home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD023B.D64 / c.dir print .exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.9 KB  |  227 lines
  1. 0 REM"[141][145][150] =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=
  2. 1 [143]"GOSUBONDEF =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=
  3. 2 REM"[141][145] =-=  TWO COLUMN DIRECTORY PRINTER  [150]=-=
  4. 3 [143]"GOSUBON =-=  REVISED & REVISED & REVISED   DEF=-=
  5. 4 REM"[141][145] =-=      & REVISED & REVISED       [150]=-=
  6. 5 [143]"GOSUBON =-=   BY JIM GREEN - MAYBE HE'LL   DEF=-=
  7. 6 REM"[141][145] =-=    GET IT RIGHT -- SOMEDAY!    [150]=-=
  8. 7 [143]"GOSUBONDEF =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=
  9. 8 REM"[141][145][150] =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=[154]
  10. 9 [143]"GOSUBON              VERSION  3^7CONT
  11. 10 POKE53280,6:POKE53281,6
  12. 15 PRINT"[147][159]";:G$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTG$G$;
  13. 20 PRINT"[158] [212]HE 2 [195]OLUMN, 2 [196]ISK [196]IRECTORY [208]RINTER [159]";:PRINTG$G$
  14. 25 PRINT"[155]        [205]ODIFIED BY [202]IM [199]REEN
  15. 30 [153]"        (null)EED INSTRUCTIONS  (null)/(null)CONT
  16. 35 GETG$:IFG$<>"Y"ANDG$<>"N"THEN35
  17. 40 IFG$="Y"THEN955
  18. 45 E$=" ABCDEFGHIJKLMNOPRSTUVWQXYZ0123456789.,*!/-=#$&'()><:+[]":S=54273
  19. 50 DIMC$(2,99):PRINT"[147][142]":J$="    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] ":PRINTJ$
  20. 55 PRINT"    A HEADING SUCH AS THE FOLLOWING  "
  21. 60 PRINT"    SAMPLE CAN BE ADDED TO THE MENU  "
  22. 65 PRINT"    OR A CUSTOM HEADING IS AVAILABLE ":PRINTJ$
  23. 70 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  24. 75 [153]" (null) DISK MENU   DISK # 40   DISK # 41  (null)
  25. 80 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  26. 85 [153]J$:[153]"    IF LISTABOVE HEADINGCONT WANTED PRESS- 1CONT "
  27. 90 [153]J$:[153]"    IF LISTCUSTOMCONT WANTED        PRESS- 2CONT "
  28. 95 [153]J$:[153]"    IF LISTNONECONT WANTED          PRESS- 3CONT ":[153]J$
  29. 100 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"2"[175]R$[179][177]"3"[167] 100
  30. 105 [141]860:[139]R$[178]"2"[167]400
  31. 110 [139]R$[178]"3"[167]150
  32. 115 [153]""J$:[153]"       PRESS RETURN ALONE FOR THE   "
  33. 120 [153]"     DEFAULT HEADING OF 'DISK MENU'  ":[153]J$
  34. 125 [153]"        TYPE IN YOUR HEADING AND     ":[153]J$
  35. 130 [153]"       PRESS <WAITRETURN> WHEN READY!    ":[153]J$
  36. 135 [153]"                                      "
  37. 140 [153]"(null)":[153][166]9)"(null)ONON":[153]"SYS_CONTCMD";:G[178]45:[141]900:[141]855
  38. 145 [139]G1$[178]""[167] G1$[178]" DISK MENU"
  39. 150 [153]"LOAD":[129]I[178]0[164]2:[129]J[178]0[164]99:C$(I,J)[178]"":[130]J,I
  40. 155 [129]I[178]0[164]1:L[178]0:[153]:[153]""J$
  41. 160 [153]"          INSERT  DISK #";I[170]1"CMD           ":[153]J$
  42. 165 [153]"        PRESS <SPACE> WHEN READY!    ":[153]J$:[151]198,0
  43. 170 [161]G$:[139]G$[178]""[167]170
  44. 175 [159]1,8,0,"$0":N$[178][199](0)
  45. 180 [153]"ONON   CONT SYS      READING MENU #"I[170]1"CMD     DEF SYS    WAITCONT"
  46. 185 [161]#1,A$,A$
  47. 190 [161]#1,A$,A$
  48. 195 [139]A$[178]""[167]220
  49. 200 [161]#1,A$,B$:X[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256:C$(I,L)[178][196](X)
  50. 205 [161]#1,A$:[139]A$[178][199](34)[167]205
  51. 210 [139]A$[178]""[167]C$(I,L)[178][202](C$(I,L),1,26):L[178]L[170]1:[137]190
  52. 215 C$(I,L)[178]C$(I,L)[170]A$:[137]205
  53. 220 [160]1:C$(I,L)[178]"XXX"
  54. 225 [153]"ONON   CONT       MENU #"I[170]1"CMD IS ENTERED  <    WAITCONT":F[178]15:[141]855
  55. 230 [129]D[178]1[164]1E3:[130]:[130]I
  56. 235 [153]"   DEF READY PRINTER & PRESS  <SPACE> "
  57. 240 [161]G$:[139]G$[179][177]" "[167]240
  58. 245 [159]15,4,7:[160]15      
  59. 250 [139]ST[167][153]"ONSYS READY PRINTER ":[141]855:[129]D[178]1[164]60:[130]:[137]235
  60. 255 [139]R$[178]"2"[167]295
  61. 260 [159]4,4:[157]4
  62. 265 [139]R$[178]"1"[167]280
  63. 270 [139]R$[178]"3"[167][153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  64. 275 [160]4:[137]295
  65. 280 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  66. 285 [153]" (null) "G1$;[166]46[171]([195](G1$)))"(null)"
  67. 290 [153]"OR>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>^":[160]4
  68. 295 [159]5,4:A1[178]0:A2[178]0:L[178]0
  69. 300 [152]5,"(null)"C$(0,L);"WAIT"C$(1,L)"WAIT (null)":L[178]L[170]1
  70. 305 [139]A1[178]1[176]C$(0,L)[178]"XXX"[167]A1[178]1:[152]5,"(null)"[163]24)"(null)";:[137]315
  71. 310 [152]5,"(null)"[200](C$(0,L),23);" (null)";
  72. 315 [139]A2[178]1[176]C$(1,L)[178]"XXX"[167]A2[178]1:[152]5,[163]24)"(null)";:[137] 330
  73. 320 [139]A1[178]1[167][152]5,[200](C$(1,L),23);" (null)";:[137] 330
  74. 325 [152]5,[163]26[171][195](C$(0,L)));[200](C$(1,L),23);"ON (null)";
  75. 330 [139]A1[178]1[175]A2[178]1[167][152]5:[137]360
  76. 335 L[178]L[170]1:[152]5:[137] 305
  77. 340 [153]"ON   SYS WANT TO PRINT MORE MENUS  Y/N  CONT"
  78. 345 [161]G$:[139]G$[178]"" [167]345
  79. 350 [139]G$[178]"Y"[167][138] 30
  80. 355 [139]G$[178]"N"[167][153]"LOAD":[128]
  81. 360 [152]5,"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  82. 365 [160]5:[137]340
  83. 370 [153]"LOADOPEN";:G$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]G$G$;
  84. 375 [153]"SYS (null)HE 2 LENOLUMN, 2 STR$ISK STR$IRECTORY (null)RINTER OPEN";:[153]G$G$
  85. 380 [153]"LIST        (null)ODIFIED BY MID$IM CHR$REEN
  86. 385 PRINT"        [206]EED INSTRUCTIONS  [217]/[206][154]
  87. 390 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]390
  88. 395 :
  89. 400 [151]53280,6:[153]"LOADDEF             CUSTOM  HEADER             WAIT";
  90. 405 [153]"CONT(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
  91. 410 [153]"(null)  (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$             (null)";
  92. 415 [153]"(null)(null)TAN<  SUPERIOR PROGRAMS  -TANRIGHT$ DISK # 08 (null)";
  93. 420 [153]"(null)(null) MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) (null)           (null)";
  94. 425 [153]"(null)(null)     YOUR NAME HERE!     (null)           (null)";
  95. 430 [153]"(null)(null)                         (null) P.D. PGMS (null)";
  96. 435 [153]"(null)(null)    <<  SOFT-WARE  >>    (null)           (null)";
  97. 440 [153]"(null)(null) (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$ (null)           (null)";
  98. 445 [153]"(null)MID$TAN<  COMMODORE  64/128  -TAN(null) DISK # 58 (null)";
  99. 450 [153]"(null)  MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)             (null)";
  100. 455 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
  101. 460 [153]"(null)      SIDE ONE          SIDE TWO      (null)";
  102. 465 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
  103. 470 [153]"  THE ACTUAL HEADER IS SIMILAR TO THIS.
  104. 475 PRINT"   IT IS 51 CHARACTERS WIDE AND WILL
  105. 480 [153]"   FIT INSIDE A DISK ENVELOPE NICELY."
  106. 485 [153]"       PRESS <SPACE> TO CONTINUE.
  107. 490 GETG$:IFG$<>" "THEN 490
  108. 495 F=15:GOSUB855
  109. 500 PRINT"[147]"J$:PRINT"    [1] - REGULAR PRINT              ":PRINTJ$
  110. 505 PRINTJ$:PRINT"    [2] - E X P A N D E D  PRINT     ":PRINTJ$
  111. 510 PRINT"            PRESS [1] OR [2]         ":PRINTJ$
  112. 515 GETG$:IFG$<"1"ORG$>"2"THEN515
  113. 520 E=VAL(G$):SE$=CHR$(15):A=1:GOSUB855
  114. 525 IFE=2THENSE$=CHR$(14):A=2:GOSUB855
  115. 530 PRINT"[147]":PRINTJ$:PRINT"   [150]   TURN ON PRINTER & ENTER DATA   [154]":PRINTJ$
  116. 535 PRINT"  ENTER DISK DATE OR NUMBER AND PRESS
  117. 540 [153]"  <RETURN>. WILL ACCEPT 14 CHARACTERS
  118. 545 PRINT"   INCLUDING SPACES. IF NONE DESIRED,
  119. 550 [153]"          JUST PRESS <RETURN>.
  120. 555 PRINT"NUMBERS, LETTERS, COMMAS, COLON, ETC OK.":G=14
  121. 560 PRINT" DISK SIDE 1,DATE OR # :[158]_[154]             [157][157][157][157][157][157][157][157][157][157][157][157][157]
  122. 565 [153][163]24)"--------------"
  123. 570 [153][163]4)"                    CENTER ON HEREONONON"[166]26)
  124. 575 [141]900:D1$[178]G1$:[139]D1$[178]""[167]D1$[178]" "
  125. 580 D1[178][195](D1$):[141]860
  126. 585 [153]:[153]"    [IS THIS OK  Y/N]
  127. 590 GETH$:IFH$<>"Y"ANDH$<>"N"THEN590
  128. 595 IFH$="N"THENPRINTTAB(24)"[145][145][145][150]":GOTO560
  129. 600 PRINT"";
  130. 605 PRINT" DISK SIDE 2,DATE OR # :[158]_[154]             [157][157][157][157][157][157][157][157][157][157][157][157][157]"
  131. 610 PRINTTAB(24)"--------------"
  132. 615 PRINTTAB(4)"                    CENTER ON HERE[145][145][145]"SPC(26)
  133. 620 G1$="":GOSUB900:D2$=G1$:IFD2$=""THEND2$=" "
  134. 625 D2=LEN(D2$):GOSUB860
  135. 630 PRINT:PRINT"    [IS THIS OK  Y/N]
  136. 635 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]635
  137. 640 [139]G$[178]"N"[167][153]"ONONONDEF":[137]600
  138. 645 G[178]13:B[178]1620:[139]E[178]1[167]G[178]26:B[178]1590
  139. 650 [153]"LOADENTER MENU NAME, NOT OVER"G"CHARACTERS.";
  140. 655 [153]"     OR PRESS RETURN FOR MENU NAME
  141. 660 PRINT"      PRE-SELECTED ON LINE #"B"[157]."
  142. 665 PRINT"      USE SPACE AND DELETE KEYS
  143. 670 [153]"           TO MOVE CURSOR.
  144. 675 IFE=2THENPRINTTAB(13)"-------------":GOTO685
  145. 680 PRINTTAB(13)"--------------------------
  146. 685 [153]"ONON  MENU NAME :_CMD";:[141]900:N$[178]G1$:M[178][195](N$):[141]860
  147. 690 [139]M[178]0[175]E[178]1[167]N$[178]"* C O M M O D O R E *":[153][163]13)N$
  148. 695 [143]: PUT YOUR MENU NAME IN LINE 790          FOR PERMANENT USE. UP TO 26
  149. 700 [143]:CHARACTERS COUNTING SPACES.   .
  150. 705 [139]M[178]0[175]E[178]2[167]N$[178]"* COMMODORE *":[153][163]13)N$
  151. 710 [143]:PUT YOUR MENU NAME IN LINE 1620         FOR PERMANENT USE. UP TO 13
  152. 715 [143]:CHARACTERS COUNTING SPACES.   .
  153. 720 N1[178][195](N$)[172]A
  154. 725 [153]:[153][163]12)"IS THIS OK  Y/N"
  155. 730 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]730
  156. 735 [139]G$[178]"N"[167]650
  157. 740 N2[178]26[171]N1:Y[178][181](N2[173]2):Z[178]Y
  158. 745 [143]  CHANGE TEXT IN LINES 770, 795, 800, 805 AND 820 TO SUIT YOUR OWN NEEDS.
  159. 750 [159]15,4,7:[160]15:[139]ST[167][141]870:[137]745
  160. 755 [159]4,4:[157]4:S$[178][199](15):G$[178][199](8)
  161. 760 [152]4,S$"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"G$
  162. 765 [152]4,S$"(null)   (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"[166]19)"(null)"G$
  163. 770 [152]4,S$"(null) (null)TAN< SUPERIOR   *   PROGRAMS -TANRIGHT$  "D1$;[166]15[171]D1)"(null)"G$
  164. 775 [152]4,S$"(null) (null) MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) (null)"[166]17)"(null)"G$
  165. 780 [152]4,S$"(null) (null)"[166]29)"(null)"[166]17)"(null)"G$
  166. 785 [139]N2[173]2[179][177]Y[167]Z[178]Y[170]1
  167. 790 [152]4,S$"(null) (null)  "[166]Y);SE$;N$;S$;[166]Z);" (null)"[166]17)"(null)"G$
  168. 795 [152]4,S$"(null) (null)"[166]29)"(null)  * NAME HERE *  (null)"G$
  169. 800 [139]E[178]1[167][152]4,S$"(null) (null)   >>> S O F T W A R E <<<   (null)"[166]17)"(null)"G$:[137]810
  170. 805 [152]4,S$"(null) (null)  "SE$"> SOFT(null)WARE <"S$" (null)"[166]17)"(null)"G$
  171. 810 [152]4,S$"(null) (null)"[166]29)"(null)"[166]17)"(null)"G$
  172. 815 [152]4,S$"(null) (null) (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$ (null)"[166]17)"(null)"G$
  173. 820 [152]4,S$"(null) MID$TAN< COMMODORE ** SIXTY-FOUR -TAN(null)  "D2$;[166]15[171]D2)"(null)"G$
  174. 825 [152]4,S$"(null)   MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)                   (null)"G$
  175. 830 [152]4,S$"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"G$
  176. 835 [152]4,S$"(null)"[166]49)"(null)"G$
  177. 840 [152]4,S$"(null)        SIDE ONE                SIDE TWO         (null)"G$
  178. 845 [152]4,S$"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<":G$[178]""
  179. 850 [160]4:[137]150
  180. 855 S[178]54273:[129]TS[178]F[164]0[169][171]1:[151]S[170]23,TS:[151]S[170]23,0:[130]:[142]:'DRUM SOUND
  181. 860 [151]S,20:[151]S[170]5,240:[151]S[170]23,15:[151]S[170]3,17:[129]D[178]1[164]120:[130]
  182. 865 [129]TS[178]S[164]S[170]22:[151]TS,0:[130]:[142]:                  'BELL SOUND
  183. 870 [153]"ONSYS         PRINTER NOT ON-LINE!! WAIT":F[178]15:[141]855:[129]D[178]1[164]350:[130]
  184. 875 [153]"ONLIST         PRINTER NOT ON-LINE!! WAIT":[141]855:[129]D[178]1[164]200:[130]
  185. 880 [153]"   CONTCHECK CONNECTIONS AND PRESS SPACE
  186. 885 PRINTTAB(13)"TO TRY AGAIN...
  187. 890 [161]G$:[139]G$[179][177]" "[167]890
  188. 895 [153]"ONONONON":[142]
  189. 900 [151]198,0:G$[178]"":G1$[178]""
  190. 905 [161]G$:[139]G$[178]""[167]905
  191. 910 [139]G$[178][199](13)[167][153]" CMD";:[142]
  192. 915 [139]G$[178][199](20)[167]935
  193. 920 [139][195](G1$)[178][177]G[167]905
  194. 925 [141]945:G1$[178]G1$[170]G$
  195. 930 [153]G$;"SYS_CONTCMD";:[137]905
  196. 935 [139][195](G1$)[179]1[167]905
  197. 940 G1$[178][200](G1$,[195](G1$)[171]1):[153]"CMDSYS_ CONTCMDCMD";:[137]905
  198. 945 [129]T[178]1[164][195](E$):[139]G$[178][202](E$,T,1)[167][142]
  199. 950 [130]:G$[178]"":[142]
  200. 955 [129]T[178]1[164]17:[153]:[130]
  201. 960 [153]" (null)HIS PROGRAM PRINTS 2 DIRECTORIES    "
  202. 965 [153]" SIDE BY SIDE.                        "
  203. 970 [153]" RIGHT$F YOU HAVE DISKS THAT ARE USED ON
  204. 975 PRINT" BOTH SIDES YOU CAN PRINT THE FRONT
  205. 980 [153]" AND REAR SIDES AND WHEN TRIMMED, IT
  206. 985 PRINT" WILL FIT INSIDE THE DISK JACKET.
  207. 990 [153]" (null)ORKS ON LENOMMODORE COMPATIBLE PRINTERS.
  208. 995 PRINT" [206]OTE - [212]WO HEADERS ARE AVAILABLE.
  209. 1000 [153]" VALXPANDED CHARACTERS MAY BE USED IN THE
  210. 1005 PRINT" HEADER IF YOUR PRINTER WILL PRINT THEM.
  211. 1010 [153]"     OPEN(null)RESS < (null)(null)ATNLENVAL WAIT>CLOSETO CONTINUECONT
  212. 1015 GETG$:IFG$<>" "THEN1015
  213. 1020 PRINT"[147]  [212]HERE IS A SMALL HEADING PRINTED THAT"
  214. 1025 PRINT"  YOU CAN CHANGE FOR EACH DISK MENU.
  215. 1030 [153]"  ATN CUSTOM HEADING IS ALSO PROVIDED.
  216. 1035 PRINT"  [217]OU CAN PUT THE MENU NAME IN LINE 690
  217. 1040 [153]"  AND 705 FOR PERMANENT USE, THEN PRESS
  218. 1045 PRINT"  [210][197][212][213][210][206] AT THE '[205][197][206][213][160][206][193][205][197]' PROMPT.
  219. 1050 [153]"  ATNLSO CHECK LINE 745 FOR MORE CHANGES.
  220. 1055 PRINT"  [201]F NO HEADER IS DESIRED THEN
  221. 1060 [153]"  PRESS <3> AT THE PROMPT.
  222. 1065 PRINT"  [212]HE PROGRAM IS SELF-PROMPTING
  223. 1070 [153]"  AND NEEDS NO OTHER INSTRUCTIONS.
  224. 1075 PRINT"   [159][208]RESS <[211][208][193][195][197][146]>[160]TO PRINT DIRECTORIES[145][154]
  225. 1080 [161]G$:[139]G$[179][177]" "[167]1080
  226. 1085 [137] 45
  227.